COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "SHOW2"
C00005 ENDMK
C⊗;
BEGIN "SHOW2"
REQUIRE "PIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "WIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,K,L,M,LOX,LOY,HIX,HIY,FOO;
STRING INPS;

   BEGIN
   INTEGER ARRAY PIC[0:PFLDIM("CARS.00[AER,HPM]")];

   FOR I←0,1,2,3 DO FOR J←0,1,2,3 DO
      BEGIN
      INTEGER ARRAY PIC[0:PFLDIM("CARS.00[AER,HPM]")];
      INTEGER X,Y;
      GETPFL("CARS."&CVS(I)&CVS(J)&"[AER,HPM]",PIC[0]);
         BEGIN
         INTEGER ARRAY INT[0:INTERESTDIM(PIC[0],2)];
         INTEREST(PIC[0],2,INT[0]);
         PUTPFL(INT[0],"INT."&CVS(I)&CVS(J)&"[AER,HPM]");
         END;
      END;
   END;

END;